Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/Centri/Centri.dir/00145_Script_Definition

Text File | 1999-02-25 | 986b | 29 lines

property whichSprite, orangeSprite, blackSprite

on beginSprite me
  set the moveableSprite of sprite the spriteNum of me = TRUE
  set the moveableSprite of sprite 22 = TRUE
  set the moveableSprite of sprite 23 = TRUE
end


on mouseUp me
  if the memberNum of sprite the spriteNum of me = blackSprite then
    set the memberNum of sprite the spriteNum of me = orangeSprite
    set the visibility of sprite whichSprite = TRUE
    set the loc of sprite whichSprite to point (the mouseh, the mousev - 60)
  else
    set the memberNum of sprite the spriteNum of me = blackSprite
    set the visibility of sprite whichSprite = FALSE

  end if
end


on getPropertyDescriptionList
  set p_list = [¼
            whichSprite: [ #default:0, #format:#integer, #comment:"Scroll displacement"],¼
  orangeSprite: [ #default:0, #format:#integer, #comment:"orangeSprite"],¼
   blackSprite: [ #default:0, #format:#integer, #comment:"blackSprite"]]
  return p_list
end